unit UPessoaModel;

interface

uses  Dialogs;

type
  TPessoaModel = class
    private

    protected
      function Salvar(): Boolean;
    public
      constructor Create;


  end;

implementation

{ TPessoaModel }

constructor TPessoaModel.Create;
begin
  ShowMessage('Classe ' + TPessoaModel.ClassName);
end;

function TPessoaModel.Salvar(): Boolean;
begin
  ShowMessage('Classe : ' + TPessoaModel.ClassName + TPessoaModel.MethodName(Pointer(TPessoaModel)));
end;

end.
